显示资料

<% const MaxPerPage=20 '分页显示的纪录个数 if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if %>

门券收藏研究网全国券友通讯录

　　为方便券友互相联系，本站推出券友通讯录自助服务，您可以点击【添加资料】填写自己的通讯资料，也可以输入条件查找信息。

<% if request.form("find1")<>"" then sql="select * from info where "&request.Form("select1")&" like '%"&Trim(request.form("find1"))&"%' or zhaohua like '%"&Trim(request.form("find1"))&"%' order by id desc" else sql="select * from info order by id desc" end if rs.open sql,conn,1,1 if rs.eof and rs.bof then if request.form("find1")<>"" then response.write "

没有您查找的资料。您可以简略搜索文字试试。

" response.write "

添加资料" else response.write "

还没有任何资料

" response.write "

添加资料" end if else totalPut=rs.recordcount if currentPage<1 then currentPage=1 end if if (currentPage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentPage= totalPut \ MaxPerPage else currentPage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpages else if (currentPage-1)*MaxPerPage <% sub showContent dim i i=0 do while not (rs.eof or err) %>

<% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop end sub %>

序号	姓名	Email	资料修改日期	详细信息
<%=(totalPut-(currentPage-1)*MaxPerPage-i)%>	<%=rs("name")%>	<%=rs("email")%>	<%=rs("date")%>	">详细信息 <% if session("adminok")<>"" then if session("ifcheck")="ok" then response.write("〖编辑〗【删除】") else response.write("〖编辑〗【删除】") end if end if %>

<% sub showpages() if (totalPut mod MaxPerPage)=0 then n= totalPut \ MaxPerPage else n= totalPut \ MaxPerPage + 1 end if if n=1 then exit sub end if response.write "

>> 资料分页 " for k=1 to n if k=currentPage then response.write "["+Cstr(k)+"] " else response.write "["+""+Cstr(k)+"] " end if next response.write "

" end sub %>

【返回首页】